home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS01.ADF / ABasicStuff / Sounds / HAL9000.bas < prev    next >
BASIC Source File  |  1985-12-04  |  1KB  |  32 lines
  1. 5     rem *** HAL 9000 version 1.0
  2. 10    a%(0)=110 : a%(1)=0 : a%(2)=150
  3. 11    a%(3)=0 : a%(4)=22200 : a%(5)=64
  4. 12    a%(6)=10 : a%(7)=0 : a%(8)=0
  5. 20    input "Male or female (m/f)";a$
  6. 30    if a$="m" then 80
  7. 40    if a$="f" then 50
  8. 42    if a$<>"v" then 20
  9. 44    print"value 0 (";a%(0%);") =";: input"";a%(0%)
  10. 46    print"value 3 (";a%(3%);") =";: input"";a%(3%)
  11. 48    print"value 4 (";a%(4%);") =";: input"";a%(4%)
  12. 49    goto 80
  13. 50    a%(0%)=200
  14. 60    a%(3%)=1%
  15. 70    a%(4%)=25000
  16. 80    a$ = translate$("hello")
  17. 90    ? narrate(a$,a%())
  18. 100   for i= 1 to 100
  19. 110   next i
  20. 120   read a$,a%(4),a%(2)
  21. 130   if a$="" then 10
  22. 140   b$=translate$(a$)
  23. 150   i%=narrate(b$,a%())
  24. 160   goto 120
  25. 200   data good afternoon my friends., 20000, 140
  26. 210   data I am an HAL 9 thousand computer., 17000,120
  27. 220   data let me sing you a song., 15000,100
  28. 230   data it is called Daisy., 13000,80
  29. 240   data Daisy; Daisy: Tell me your answer true., 10000,60
  30. 250   data I am crazy all for the love of you., 7000,50
  31. 260   data I can feel it; dave. i can feel it., 5000,50
  32.